Program comment;

begin

 {
  	procedure x(var x:integer);	
 }

	{$mixed-comments}    (*$mixed-comments*)


end.
